home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / reuse.lha / reuse / src / StdIO.md < prev    next >
Text File  |  1992-08-18  |  2KB  |  69 lines
  1. (* $Id: StdIO.md,v 1.3 1991/11/21 14:33:17 grosch rel $ *)
  2.  
  3. (* $Log: StdIO.md,v $
  4.  * Revision 1.3  1991/11/21  14:33:17  grosch
  5.  * new version of RCS on SPARC
  6.  *
  7.  * Revision 1.2  89/07/14  16:27:20  grosch
  8.  * made WriteN work for numbers with MSBit set
  9.  * 
  10.  * Revision 1.1  89/01/24  19:04:40  grosch
  11.  * added procedure UnRead
  12.  * 
  13.  * Revision 1.0  88/10/04  11:47:15  grosch
  14.  * Initial revision
  15.  * 
  16.  *)
  17.  
  18. (* Ich, Doktor Josef Grosch, Informatiker, Sept. 1987 *)
  19.  
  20. DEFINITION MODULE StdIO;            (* buffered standard IO    *)
  21.  
  22. FROM SYSTEM IMPORT ADDRESS;
  23.  
  24. PROCEDURE ReadClose    ;            (* close input file    *)
  25. PROCEDURE Read        (Buffer: ADDRESS; Size: CARDINAL): INTEGER;
  26.                         (* binary        *)
  27. PROCEDURE ReadC        (): CHAR    ;        (* character        *)
  28. PROCEDURE ReadI        (): INTEGER ;        (* integer  number    *)
  29. PROCEDURE ReadR        (): REAL    ;        (* real     number    *)
  30. PROCEDURE ReadB        (): BOOLEAN ;        (* boolean        *)
  31. PROCEDURE ReadN        (Base: INTEGER): INTEGER;
  32.                         (* number of base 'Base'*)
  33. PROCEDURE ReadS        (VAR s: ARRAY OF CHAR);    (* string        *)
  34. PROCEDURE ReadShort    (): SHORTINT;        (* shortint number ?    *)
  35. PROCEDURE ReadLong    (): LONGINT ;        (* longint  number ?    *)
  36. PROCEDURE ReadCard    (): CARDINAL;        (* cardinal number ?    *)
  37. PROCEDURE ReadNl    ;            (* new line        *)
  38. PROCEDURE UnRead    ;            (* backspace 1 char.    *)
  39.  
  40. PROCEDURE EndOfLine    (): BOOLEAN ;        (* end of line ?    *)
  41. PROCEDURE EndOfFile    (): BOOLEAN ;        (* end of file ?    *)
  42.  
  43.  
  44. PROCEDURE WriteClose    ;            (* close output file    *)
  45. PROCEDURE WriteFlush    ;            (* flush output buffer    *)
  46. PROCEDURE Write        (Buffer: ADDRESS; Size: CARDINAL): INTEGER;
  47.                         (* binary        *)
  48. PROCEDURE WriteC    (c: CHAR);        (* character        *)
  49. PROCEDURE WriteI    (n: INTEGER ; FieldWidth: CARDINAL);
  50.                         (* integer  number    *)
  51. PROCEDURE WriteR    (n: REAL; Before, After, Exp: CARDINAL);
  52.                         (* real     number    *)
  53. PROCEDURE WriteB    (b: BOOLEAN);        (* boolean        *)
  54. PROCEDURE WriteN    (n: LONGCARD; FieldWidth, Base: CARDINAL);
  55.                         (* number of base 'Base'*)
  56. PROCEDURE WriteS    (s: ARRAY OF CHAR);    (* string        *)
  57. PROCEDURE WriteShort    (n: SHORTINT; FieldWidth: CARDINAL);
  58.                         (* shortint number ?    *)
  59. PROCEDURE WriteLong    (n: LONGINT ; FieldWidth: CARDINAL);
  60.                         (* longint  number ?    *)
  61. PROCEDURE WriteCard    (n: CARDINAL; FieldWidth: CARDINAL);
  62.                         (* cardinal number ?    *)
  63. PROCEDURE WriteNl    ;            (* new line        *)
  64.  
  65.  
  66. PROCEDURE CloseIO;                (* close all files    *)
  67.  
  68. END StdIO.
  69.